home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Design
/
WB Collection.iso
/
workbench werkzeuge
/
scherz programme
/
explode
/
exp.a
< prev
next >
Wrap
Text File
|
1996-04-07
|
504b
|
23 lines
*
* exp.a - assembler interface for exploding windows code
*
* Bruno Costa - 30 Aug 89
*
xdef _ExplodeWindow
xref _DoExplode
xref _openWindow
section "text",code
_ExplodeWindow:
move.L A0,-(A7) ; pass NewWindow parameter on stack
jsr _DoExplode ; call C function that "explodes"
movea.L (A7),A0 ; restore A0 to point to NewWindow
addq.L #4,A7 ; restore stack pointer
movea.L _openWindow,A1 ; load original OpenWindow address
jsr (A1) ; call it to open the window
rts
END